home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / irc / AmirxRebol.lha / amirxrebol / rexx / bldrates.amirx next >
Encoding:
Text File  |  1998-10-24  |  2.2 KB  |  50 lines
  1. /**************************************************************************/
  2. /*                             BldRates.amirx                             */
  3. /*                    Copyright ©1998 by Dick Whiting                     */
  4. /*                                                                        */
  5. /*------------------------------------------------------------------------*/
  6. /*                                                                        */
  7. /*  Calls the REBOL script for building a currency conversion table. The  */
  8. /*  information is gathered from pacific.commerce. Really nice page:)     */
  9. /*                                                                        */
  10. /*  Note that these are mainly just playing with REBOL (www.rebol.com)    */
  11. /*  REBOL, itself, is under constant development and there is little      */
  12. /*  guarantee that these will work with the next update.                  */
  13. /*                                                                        */
  14. /*                     This works with REBOL 1.0.2.1                      */
  15. /*------------------------------------------------------------------------*/
  16. /*                                                                        */
  17. /*               Address Bug Reports or Comments to:                      */
  18. /*                Dick Whiting <dwhiting@europa.com>                      */
  19. /*                           23 Oct 1998                                  */
  20. /*                                                                        */
  21. /*              Home Page: http://www.europa.com/~dwhiting/               */
  22. /*                                                                        */
  23. /**************************************************************************/
  24.  
  25. pragma('STACK',40000)
  26. pragma('D','REBOL:')
  27.  
  28. Address Command 'rebol --script AMIRC:/rebol/bldrates.r PIPE PIPE:/bldrates.pipe'
  29.  
  30. prefix='BldRates'
  31. response=''
  32.  
  33. open('IN','PIPE:bldrates.pipe','R')
  34. do 10 
  35.    response=readln('IN')
  36.    if response ~='' then break
  37. end
  38. close('IN')
  39.  
  40. if response ='' then response="Build rates failed"
  41.  
  42. cecho(response)
  43. exit
  44.  
  45.  
  46. cecho:     /* This function echo's text to listview*/
  47. "ECHO P="d2c(27)"b«"prefix"» " arg(1)
  48. return 0
  49.  
  50.